home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / BOBTAIL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  4.4 KB  |  139 lines
  1. 10  'BOBTAIL - Vertical Antenna Array - 28 JUL 96 rev. 22 OCT 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  U$="####.###"
  7. 70  PI=3.14159
  8. 80  JJ=1/(4*PI^2)*10^6
  9. 90  '
  10. 100  COLOR 15,2
  11. 110  PRINT " BOBTAIL CURTAIN VERTICAL ANTENNA ARRAY";
  12. 120  PRINT TAB(57)"by George Murphy VE3ERP ";
  13. 130  COLOR 1,0:PRINT STRING$(80,223);
  14. 140  COLOR 7,0
  15. 150  '
  16. 160  '.....start
  17. 170  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  18. 180  GOSUB 1110     'diagram
  19. 190  PRINT UL$;
  20. 200  '
  21. 210  '.....standard antenna notes
  22. 220  OPEN "I",1,"\data\docfiles\antenna.doc
  23. 230  IF EOF(1)THEN 250
  24. 240  INPUT#1,Z$:PRINT TAB(3);Z$:GOTO 230
  25. 250  CLOSE
  26. 260  PRINT UL$;
  27. 270  PRINT "  Ref. The ARRL ANTENNA BOOK, 14th edition, page 6-13."
  28. 280  '
  29. 290  LOCATE 23,24:COLOR 0,7
  30. 300  PRINT " Press 1 to continue or 0 to EXIT ";
  31. 310  COLOR 7,0
  32. 320  Z$=INKEY$:IF Z$=""THEN 320
  33. 330  IF Z$="0"THEN CLS:RUN EX$
  34. 340  IF Z$="1"THEN 370
  35. 350  GOTO 320
  36. 360  '
  37. 370  '.....data input
  38. 380  VIEW PRINT 14 TO 24:CLS:VIEW PRINT:LOCATE 14
  39. 390  INPUT " ENTER: Centre frequency (MHz) of band of interest....";F
  40. 400  A=473/F           'feet
  41. 410  B=225/F           'feet
  42. 420  COLOR 0,7
  43. 430  PRINT "  The L/C ratio of the matching network should be fairly low to ";
  44. 440  PRINT "provide good    ";
  45. 450  PRINT "  loading characteristics. Start with a reactance of 450 ohms. If ";
  46. 460  PRINT "calculated    ";
  47. 470  PRINT "  values of C1 or L1 are unsuitable choose another ";
  48. 480  PRINT "reactance, preferably lower. ";
  49. 490  COLOR 7,0
  50. 500  INPUT " ENTER: Reactance XC=XL (ohms) =......................";X
  51. 510  C=10^6/(2*PI*F*X)    'initial capacitor value
  52. 520  '
  53. 530  COLOR 0,7
  54. 540  PRINT " Select a variable capacitor with a maximum value greater than";
  55. 550  PRINT INT(C)+1;"pF for C1:"
  56. 560  COLOR 7,0
  57. 570  INPUT " ENTER: Maximum capacitance of C1 (pF)................";C1
  58. 580  VIEW PRINT 14 TO 24:CLS:VIEW PRINT:LOCATE 14
  59. 590  PRINT " Frequency of interest.......................";USING U$;F;
  60. 600  PRINT " MHz"
  61. 610  PRINT " Length of each of 2 phasing lines A.........";USING U$;A;
  62. 620  PRINT " ft. (";USING U$;A*0.3048;:PRINT " m.)"
  63. 630  PRINT " Length of each of 3 vertical radiators B....";USING U$;B;
  64. 640  PRINT " ft. (";USING U$;B*0.3048;:PRINT " m.)"
  65. 650  PRINT " Max. capacitance of variable capacitor C1...";USING U$;C1;
  66. 660  PRINT " pF"
  67. 670  CMAX=C1               'maximum capacitance
  68. 680  CMID=10^6/(2*PI*F*X)  'mid capacitance
  69. 690  CMIN=C1*0.1            'minimum capacitance
  70. 700  IF CMID<C1 THEN 750
  71. 710   BEEP:COLOR 0,7:PRINT " CAPACITOR MUST BE LARGER THAN";INT(CMID)+1;"pF "
  72. 720  COLOR 7,0:PRINT " Press any key to start over..."
  73. 730  IF INKEY$=""THEN 730
  74. 740  GOTO 100
  75. 750  L=JJ/F^2/CMID
  76. 760  PRINT " Inductor L1.................................";
  77. 770  COLOR 0,7:PRINT USING U$;L;:COLOR 7,0:PRINT " >H"
  78. 780  PRINT " With C1 set at...............";
  79. 790  LOCATE ,28:PRINT USING U$;CMIN;:PRINT " pF(10%)";
  80. 800  P$=STR$(INT(CMID/CMAX*100)):P$=RIGHT$(P$,LEN(P$)-1)
  81. 810  COLOR 0,7:LOCATE ,46:PRINT USING U$;CMID;:COLOR 7,0:PRINT " pF(";P$;"%)";
  82. 820  LOCATE ,64:PRINT USING U$;CMAX;:PRINT " pF(100%)";
  83. 830  FMAX=SQR(JJ/CMIN/L)
  84. 840  FMID=SQR(JJ/CMID/L)
  85. 850  FMIN=SQR(JJ/CMAX/L)
  86. 860  PRINT "  Resonant frequency is....";
  87. 870  LOCATE ,28:PRINT USING U$;FMAX;:PRINT " MHz";
  88. 880  COLOR 0,7:LOCATE ,46:PRINT USING U$;FMID;:COLOR 7,0:PRINT " MHz";
  89. 890  LOCATE ,64:PRINT USING U$;FMIN;:PRINT " MHz";
  90. 900  X1=2*PI*FMAX*L
  91. 910  X2=2*PI*FMID*L
  92. 920  X3=2*PI*FMIN*L
  93. 930  PRINT "  Reactances XC & XL are...";
  94. 940  LOCATE ,28:PRINT USING U$;X1;:PRINT " ohms";
  95. 950  COLOR 0,7:LOCATE ,46:PRINT USING U$;X2;:COLOR 7,0:PRINT " ohms";
  96. 960  LOCATE ,64:PRINT USING U$;X3;:PRINT " ohms"
  97. 970  PRINT UL$;
  98. 980  PRINT " Adjust C1 for resonance; adjust tap";
  99. 990  PRINT " on L1 for minimum SWR; re-adjust C1."
  100. 1000  PRINT " The height for the horizontal portion should be slightly greater ";
  101. 1010  PRINT "than B.";
  102. 1020  GOSUB 1260
  103. 1030  COLOR 0,7:LOCATE 25,13
  104. 1040  PRINT " Do you want to try other values for L1 and C1?   (y/n) ";
  105. 1050  COLOR 7,0
  106. 1060  Z$=INKEY$:IF Z$=""THEN 1060
  107. 1070  IF Z$="n"THEN 160
  108. 1080  IF Z$="y"THEN VIEW PRINT 17 TO 24:CLS:VIEW PRINT:LOCATE 17:GOTO 420
  109. 1090  GOTO 1060
  110. 1100  '
  111. 1110  '.....diagram
  112. 1120  T=12:COLOR 0,7
  113. 1130  LOCATE ,T:PRINT "  VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR  "
  114. 1140  LOCATE ,T:PRINT "  CALLDEFSNGSOUND 3 vertical radiatorsSOUNDDEFDBLCALLSOUND SOUND SOUND SOUND SOUND SOUND SOUND SOUND SOUND SOUND SOUND SOUND DEFDBLCALL  "
  115. 1150  LOCATE ,T:PRINT "  CALL                         CALL                         CALL  "
  116. 1160  LOCATE ,T:PRINT "  B                         B                         B  "
  117. 1170  LOCATE ,T:PRINT "  CALL          tap SOUNDDEFDBLVARPTRSOUNDSOUNDSOUNDCOLOR L1 CALL                         CALL  "
  118. 1180  LOCATE ,T:PRINT "  CALL                CALL VARPTRORORORORORCOLORCALL   VARPTR matching network    CALL  "
  119. 1190  LOCATE ,T:PRINT "  CALL 50- coax SOUNDDEFDBL THENTHENFNLOAD CALL     BLOAD' DEFSNGSOUND<0xB4!> located at base of  CALL  "
  120. 1200  LOCATE ,T:PRINT "    feed line     BLOADSOUNDSOUNDMOTORSOUNDSOUNDUSINGSOUNDSOUND'    CLS vertical element       "
  121. 1210  LOCATE ,T:PRINT "                  CALL     C1 (variable)                    "
  122. 1220  LOCATE ,T:PRINT "                \\MOTOR\\ DEFSNGSOUND earth ground                    "
  123. 1230  COLOR 7,0
  124. 1240  RETURN
  125. 1250  '
  126. 1260  'HARDCOPY
  127. 1270  GOSUB 1380:LOCATE 25,2:COLOR 14,6
  128. 1280  PRINT " Press 1 to print screen, 2 to print screen & ";
  129. 1290  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  130. 1300  Z$=INKEY$:IF Z$="3"THEN GOSUB 1380:RETURN
  131. 1310  IF Z$="1"OR Z$="2"THEN GOSUB 1380:GOTO 1330
  132. 1320  GOTO 1300
  133. 1330  FOR QX=1 TO 24:FOR QY=1 TO 80
  134. 1340  LPRINT CHR$(SCREEN(QX,QY));
  135. 1350  NEXT QY:NEXT QX
  136. 1360  IF Z$="2"THEN LPRINT CHR$(12)
  137. 1370  GOTO 1270
  138. 1380  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  139.